home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Menu.Dxr / 00002_Main navigation buttons.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1013 b   |  60 lines
  1. on enterLeafs
  2.   go(label("Main"))
  3.   setFingerCursor(#on, [3, 4, 5, 9])
  4.   setPrompter()
  5.   set the exitLock to 1
  6.   set the keyDownScript to "quitCatcher"
  7. end
  8.  
  9. on leaveLeafs
  10.   set the timeoutScript to EMPTY
  11.   setFingerCursor(#off, [3, 4, 5, 9])
  12. end
  13.  
  14. on leafClicker
  15.   global gPrompter
  16.   stopSounds()
  17.   leaveLeafs()
  18.   if gPrompter = 0 then
  19.     set gPrompter to 1
  20.   end if
  21.   cursor(4)
  22.   case the clickOn of
  23.     3:
  24.       go("start", "Assess")
  25.     4:
  26.       go("start", "Tools")
  27.     5:
  28.       go("start", "Changes")
  29.   end case
  30. end
  31.  
  32. on setPrompter
  33.   global gPrompter
  34.   set the timeoutLength to 30 * 60
  35.   if voidp(gPrompter) then
  36.     set gPrompter to 0
  37.   end if
  38.   case gPrompter of
  39.     0:
  40.       set the timeoutScript to "clickDummy1"
  41.     1:
  42.       set the timeoutScript to "clickDummy2"
  43.   end case
  44. end
  45.  
  46. on clickDummy1
  47.   puppetSound("clikself.aif")
  48. end
  49.  
  50. on clickDummy2
  51.   puppetSound("clikleaf.aif")
  52. end
  53.  
  54. on quitCatcher
  55.   if the commandDown and ((the key = "q") or (the key = ".")) then
  56.     goQuitScreen()
  57.   end if
  58.   pass()
  59. end
  60.